home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 2 / Tiger_Disk_002_1994-05_Tiger-Crew-Disk_de_Side_B.d64 / my basicdem.note (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  2KB  |  49 lines
  1. 1 print"[147]":poke53280,0:poke53281,0:poke646,11
  2. 2 print"[206][205][206][205][206][205][206][205][206][205][206][205][206][205][206][205][206][205][206][205][206][205][206][205][206][205][206][205][206][205][206][205][206][205][206][205][206][205][206][146]"
  3. 3 print"  'is this cool?? or cold?? vote !!'   [146]"
  4. 4 print"[206][205][206][205][206][205][206][205][206][205][206][205][206][205][206][205][206][205][206][205][206][205][206][205][206][205][206][205][206][205][206][205][206][205][206][205][206][205][206][146]"
  5. 11 print"[156]          [213][195][195][195][195][195][195][195][201]               [146]"
  6. 12 print"          [194]       [194]'my basic-demo'[146]"
  7. 13 print"          [202][195][201]   [213][195][203]      note     [146]"
  8. 14 print"            [194]   [194][213][195][195][201][213][178][178][201][195][195][174]      [146]"
  9. 15 print"            [194]   [194][194] [181][194][194][194][194][194][213][195][203]      [146]"
  10. 16 print"            [202][195][195][195][203][202][195][195][203][177][173][189][177][173][195][195][195]     [146]"
  11. 17 print"[158]    right on the heels of 'basic-buzz'"
  12. 18 print"winni and i hope that you saw that one"
  13. 19 print"i made exclusively for 'tigerdisk' #001"
  14. 20 print"(english version.) anyway feel free to "
  15. 21 print"use any parts,for your own programs and"
  16. 22 print"when you finish making your basic-demos"
  17. 23 print"send them in to 'tigerdisk' so others  "
  18. 24 print"can enjoy and learn from them, as well!"
  19. 25 print" for ctx with me>> tom grosz/po.box 33.[146]"
  20. 26 print"   macksville./ nsw.2447./ australia.  [146]"
  21. 1080 fora=49810to49973:readaa:pokea,aa:next
  22. 1090 data120,169,183,141,20,3,169,194
  23. 1100 data141,21,3,173,17,208,41,127,141
  24. 1110 data17,208,173,35,195,141,18,208
  25. 1120 data169,1,141,26,208,169,127,141
  26. 1130 data13,220,88,96,162,1,224,8,240
  27. 1140 data34,189,36,195,141,22,208,238
  28. 1150 data184,194,24,173,35,195,125,45
  29. 1160 data195,201,252,176,43,141,18,208
  30. 1170 data169,1,141,25,208,104,168,104
  31. 1180 data170,104,64,173,36,195,141,22
  32. 1190 data208,169,1,141,184,194,173,35
  33. 1200 data195,201,210,176,22,105,40,141
  34. 1210 data35,195,141,18,208,76,212,194
  35. 1220 data173,36,195,141,22,208,169,1
  36. 1230 data141,184,194,238,11,195,169,35
  37. 1240 data201,75,208,5,169,35,141,11,195
  38. 1250 data141,35,195,141,18,208,169,1
  39. 1260 data141,25,208,76,49,234,35,200
  40. 1270 data201,202,203,204,203,202,201
  41. 1280 data200,0,3,6,9,12,15,19,22,0
  42. 1290 sys 49810
  43. 1300 fort=1to10000:nextt:goto5200
  44. 5200 printtab(rnd(1)*40);"[158]."
  45. 5300 poke 218,peek(218) or 128
  46. 5400 print "[157]";chr$(148)
  47. 5500 if rnd(1)>0.2 then5300
  48. 5600 goto5200
  49.